Google
 
Trailing-Edge - PDP-10 Archives - clisp - clisp/upsala/clisp.:ej
There are no other files named clisp.:ej in the archive.
 W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
jN!G\ 9i

PM&7.&>CN1];h"tq	'}XX[!9-^9bB$R%"&f#3s$u&e2=95D7U6Qe+v.2.

1,Z<8`O,lb,xt1K7L*[,
',
46
A4)M5\4k48w4e
87 $7_4.nD2zR-e27s3	5*	*C	*>	!<& CLISP Compile Command& CLISP Edit Definition& CLISP Enter CLisp Mode& CLISP Execute JCL& CLISP Exit Emacs& CLISP FS Superior& CLISP Handle Retval& CLISP Mode & CLISP Process File Options & CLISP Return from Superior& CLISP Return to Superior& CLISP Save Region& Set Package& Setup CLISP LibraryCLisp ModeCommon Lisp ModeEdit DefinitionEvaluate BufferEvaluate ExpressionEvaluate into BufferEvaluate RegionEvaluate Region into BufferReparse Attribute LineSet PackageUpdate Attribute Line^R CLISP Find Function^R CLISP Mark Defun^R CLISP Return to Superior^R CLISP Save DEFUN^R CLISP Zap to Lisp^R Evaluate Defun~DIRECTORY~!~DOC~ & CLISP Compile Command!~DOC~ & CLISP Edit Definition"~DOC~ & CLISP Enter CLisp Mode~DOC~ & CLISP Execute JCL~DOC~ & CLISP Exit Emacs~DOC~ & CLISP FS Superior~DOC~ & CLISP Handle Retval~DOC~ & CLISP Mode&~DOC~ & CLISP Process File Options&~DOC~ & CLISP Return from Superior$~DOC~ & CLISP Return to Superior~DOC~ & CLISP Save Region~DOC~ & Set Package~DOC~ & Setup CLISP Library~DOC~ CLisp Mode~DOC~ Common Lisp Mode~DOC~ Edit Definition~DOC~ Evaluate Buffer~DOC~ Evaluate Expression~DOC~ Evaluate into Buffer~DOC~ Evaluate Region%~DOC~ Evaluate Region into Buffer ~DOC~ Reparse Attribute Line~DOC~ Set Package~DOC~ Update Attribute Line ~DOC~ ^R CLISP Find Function~DOC~ ^R CLISP Mark Defun%~DOC~ ^R CLISP Return to Superior~DOC~ ^R CLISP Save DEFUN~DOC~ ^R CLISP Zap to Lisp~DOC~ ^R Evaluate Defun~DOC~ ~Filename~~Filename~

~INVERT~R[0[1
0m.vCLISP Return to Superior
FSLispT"N
:iEditor TypeCLISP
f[DFile
qBuffer Nameu0
[Previous Buffer
m(m.mSelect Buffer)*CLISP*
m(m.mCLISP Mode)
m(m.mSelect Buffer)0
]Previous Buffer
:i*fo..qCLisp Mode Hooku0
@:i*|m(m.m& CLISP Enter CLisp Mode)|u1
@:i*|01|m.vCLisp Mode Hook
m.m& CLISP FS SuperiorfsSuperior
:i*fo..qReturn from Superior Hooku0
@:i*|m(m.m& CLISP Return from Superior)|u1
@:i*|01|m.vReturn from Superior Hook
:i*fo..qExit to Superior Hooku0
@:i*|m(m.m& CLISP Return to Superior)|u1
@:i*|01|m.vExit to Superior Hook
:i*fo..qExit Hooku0
@:i*|m(m.m& CLISP Exit Emacs)|u1
@:i*|01|m.vExit Hook
m.m^R CLISP Return to Superiorm.vMM ^R Return to Superior
m.m^R Return to Superioru:.X()
0fo..qCLISP Setup Hooku1
fq1"gm1'
M(M.M& CLISP Execute JCL)'
4:"l,0i100100.fsExit'
fsOSTeco"efs%oplsp"n1,m.mLISPT Command"E
m(m.mLoad Library)DSK:EMACS;LISPT'''
"l[10[2f[BBindfj
j:s,"l.,(:l).x2'
j:s,"lr:k'
hx1
f]BBind
fq1"g
f~1nil"n
0fo..qTags Find File"e
1,M(M.MVisit File)1'
"#m(m.mFind File)1'''
fq2"gm2'
]2]1'
100100.fsExit\m.m& CLISP Compile Commandm.lCompile Command
m.m^R Evaluate Defunm.q..Z
m.mEvaluate Regionm.q.. 
m.m^R CLISP Find Functionm.q...S
m.mEdit Definitionm.q...
fq.xfsqvector[..o
g.xq..om.q.x
]..o
?	M(M.M& Init Buffer Locals)
fqBuffer Filenames:"g
f6CLISPfsDFN2'
M.M^R Indent for LispM.QI
1,1M.LSpace Indent Flag
1,Q(1,Q.M.QW)M.Q.
1,56M.LComment Column
1,(:I*;)M.LComment Start
1,(:I*)M.LParagraph Delimiter
1,3m.lDisplay Matching Paren
QPermit Unmatched Paren"L
1,0M.LPermit Unmatched Paren'
1,1m.lLisp WHEN Indent
1,2m.lLisp IF Indent
1,1m.lLisp UNLESS Indent
1,1m.lLisp CATCH Indent
1,1m.lLisp THROW Indent
1,1m.lLisp CONDITION-BIND Indent
1,2m.lLisp DO* Indent
1,1m.lLisp FLET Indent
1,1m.lLisp LABELS Indent
1,1m.lLisp TYPECASE Indent
1,1m.lLisp WITH-KEYWORDS Indent
1,1m.lLisp WITH-OPEN-FILE Indent
1,1m.lLisp WITH-OPEN-STREAM Indent
1,1m.lLisp WITH-OUTPUT-TO-STRING Indent
1,1m.lLisp WITH-INPUT-FROM-STRING Indent
1,1m.lLisp MULTIPLE-VALUE-CALL Indent
1,2m.lLisp MULTIPLE-VALUE-BIND Indent
1,2m.lLisp MULTIPLE-VALUE-SETQ Indent
1,1m.lLisp DO-MOST-SYMBOLS Indent
1,1m.lLisp DO-ALL-SYMBOLS Indent
1,1m.lLisp DO-SYMBOLS Indent
M.Q..D
0FO..QCLisp ..DF"NU..D'
"#W:G..DU..D
Q..DM.VCLisp ..D
-1[132<%1*5+1:F..DA>
9*5+1:F..D 
!"""""!1M(M.M& Alter ..D)||"|\/''`','@'#'[A]A{A}A
  '
1M(M.M& Set Mode Line)CLISP:m(m.mCLisp Mode)\0m.vCLISP Return to Superior
m(m.m& CLISP Handle Retval)
qCLISP Old Buffer Name[1
m(m.mSelect Buffer)1]1
qPrevious Bufferfo..qCLISP Old Previous Bufferm.vPrevious Buffer
m(m.m& CLISP Execute JCL)
gf~Buffer Name*CLISP*"n
qBuffer Namem.vCLISP Old Buffer Name
qPrevious Bufferm.vCLISP Old Previous Buffer
m(m.mSelect Buffer)*CLISP*'
z-b"e1m.vCLISP Return to Superior'
:FR
:I*ZFSEchoDisplay
0FSEchoChar
0FO..QExit to Superior Hook[1
Q1"NM1'
FM(M.M& Exit EMACS)
100000.FSEXIT
0FO..QReturn from Superior Hook[1
Q1"NM1'p0fo..qCLISP Return to Superior"e'
m..f
f~Buffer Name*CLISP*"n
qBuffer Namem.vCLISP Old Buffer Name
qPrevious Bufferm.vCLISP Old Previous Buffer
m(m.mSelect Buffer)*CLISP*'
hk
i(throw (quote user::exit-emacs) t)

R1:@<
[0[1
f[BBind
fj
hx0
f]BBind
fsXJNameu1
f~1CLISP"em0'
]1]0>
l.[0
FSVB[1
FSVZ[2
0FSVB
0FSVZ
1,FFind Function: [3
FF-1"E
F[4
1000[5
<Q4-Q5:J;
<.,Q4+Q5:FB(defun 3 (defmacro 3 ;
13,FKAF 


"G0l
m(m.m^R Reposition Window)'>
Q5*3U5>
]5]4'
J
<:S(defun 3 (defmacro 3 ;
13,FKAF 


"G0l
m(m.m^R Reposition Window)'>
Q2FSVZ
Q1FSVB
Q0J
:I*FNF	Unable to find function 3FSErrsF[VBF[VZ
FF"E:,.'"#F'FFSBoundaries
Q..O[3
Q:.B(:I**CLISP*M(M.M& Find Buffer)+4)[..O
ZJ
G3
0
E.(
M(M.M^R CLISP Mark Defun)
M(M.M& CLISP Save Region)
)j
.:
.[1
:-S
("LL'
"#1-.+BA-("EJ'
"#JOBufbeg''
FL+.-Q1"L
!Bufbeg!
:S
("L0L''
.(@FLLL.:)J
<B-.;-L-(:F);
@F	 R1A-;"NL0;'
>
0P0[0
ff"nu0q0"n
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
bji(values 

zjff"ei(throw (quote user::exit-emacs) nil)'
i)

0m.vCLISP Return to Superior
''
m(m.m^R Return to Superior)

q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
bj
.(1@fll),.k@f
kzj-@f
k
hfx*m.vCLISP Lisp Value
0fsXModified0fsModified
!q..o[3
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
zj
g3
]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1
'
m(m.m& CLISP Save Region)
ff"e
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1
'
'
sm(m.m& CLISP Save Region)
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
gCLISP Lisp Value
i
'
61,fEvaluate into Buffer: [1
fq1"g
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
g1
]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
gCLISP Lisp Value'
'
A1,fEvaluate Expression: [1
fq1"g
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
g1
]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1
'
'
m(m.m^R CLISP Save Defun)
ff"e
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1
'
'
;[v
1,fEdit Definition: 
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
i(progn (format t "~a" (emacs::get-definition (quote s))) (values))
!''!
]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
f[BBindgCLISP Lisp Value
z-3"gz-3,zf~nil"ezj-3d''
hxvf]BBind
f~vnil"e@ftNo definition for s, sorry.
0fsEchoActive'
"#qs,qvm(m.m& CLISP Edit Definition)''
"#@ftNo definition of s, sorry.0fsEchoActive'
[s[v
f[BBind
gvbj1a-42."e1d
zj0a-42."e-1d
bj:s::"nb,.k'
hxv''
hk
gsbj:s:::"n.-1"nb,.k
hxs''
f]BBind
f[Dfile
e?v"ef]Dfile
m(m.mFind File)v
m(m.m^R CLISP Find Function)s'
"#f]Dfile
m(m.mSelect Buffer)*Definition of s*
hkgvbjm(m.mCLISP Mode)'
>q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
i(compile-file "1"!''!
fq4"gig4'i)

]..o
1m(m.m^R CLISP Zap to Lisp)
fqCLISP Lisp Value"g
qCLISP Lisp Value[1
:ft1'
1,fSet Package: [1
fq1"g
m(m.m& Set Package)1
@ftUpdate attribute line as well
1m(m.m& Yes or No)"n
1,m(m.mUpdate Attribute Line)1''
f[1
q:.b(:i**CLISP*m(m.m& Find Buffer)+4)[..o
hk
i(in-package (quote 1))

]..o
1m(m.m^R CLISP Zap to Lisp)
[10[2.[Pfn1:<qPj>
ff-2"e
1,fPackage: u2'
j
@F	 
R
:fb-*-"l
.,(fb-*-fkc.)ki '
"#
i2r
qComment Startu1
q1"e:i0;;; '
0fo..qComment Beginf"nu1'
f=1;"e:i*;;; u1'
g1i-*-i -*-fkc
.(qComment End"ngComment End)j''
i Mode:gMode
fsLispT"n
f~ModeCLISP"e
i; Package:
.u1
q2"em(m.mEvaluate into Buffer)(package-name *package*)'
"#g2'
q1j:s""nfkd:s""nfkd''''
[1.[Pfn1:<qPj>
j
@F	 
R
:FB-*-"L
.U11:FB:-*-+2"EFKCQ1,.X1'
"#Q1J:FBMode:"L
.,(FB;-*-FKC.)X1''
FQ1"Gf~Mode1"n
M(M.M1 Mode)1U5''
fsLispT"n
f~ModeCLISP"e
:fbPackage:"l
.,(fb;-*-fkc.)x1
fq1"gm(m.m& Set Package)1'''''
v[0[1[2[3[4.[PfnqPj
0[5
0[6
1@:<J
FSOSTECO"N
:FBEDIT BY "L
<L1A-;"N1;'>''
@F	 
R
:FB-*-"L
.U11:FB:-*-+2"EFKCQ1,.X1'
"#Q1J:FBMode:"L
.,(FB;-*-FKC.)X1''
FQ1"GM(M.M1 Mode)1U5'
fsLispT"n
f~ModeCLISP"e
:fbPackage:"l
[1
.,(fb;-*-fkc.)x1
fq1"gm(m.m& Set Package)1'
]1''''
FSOSTECO"NQ5"E
QBuffer FilenamesF[DFILE
FSDFN2U1FQ1"E:I1<Null>'1,M.M& 1 ModeU0
Q0"NM0W1U5'
"#J@F 
L
12F~(FILECREATED"E
M(M.MInterlisp Mode)W1U5''''
ZJ:Z,Z-10000FB


"EZ-10000"LJ''
.-Z"N
:SLocal Modes"L
Q5"E1M(M.M& Init Buffer Locals)
:IModeFundamental'
.(FKC0X0)J
1A-:"EC':X1
128*5,32:i2
*5:f2 /
"*5:f2 |!'!
<L.-Z;
FQ0F~0"N!<!>'
FQ0C1A-15."E!<!>'
4F~END:@;
.,(S:.-2,.+1F=::"EC'
).-1X3
.u6@f	 l
1a-34"eq2[..d
.+1,(@fll).-1x4
]..d
@:i4"4"!''!'
"#.(:\u4)-."eq6-1j'
.,(:s1
:w.)@f 	"n
q6,.x4''
F~3Mode"E
-[Initial Local Count
M(M.M4 Mode)
-1FSQPUNW
!<!>'
FQ3-2:G3-"E
M4M(M.MMake Local Q)3!<!>'
Q4M.L3
>
-1U5''
>(
Q5:"GM(M.M& Set Mode Line)'
)"EJ'
!"!@FT
Error processing file's mode or local variables
0FSECHOACT
J	CLISP1The Teco half of the Common Lisp Emacs systemNS Set up CLISP variables, run CLISP Setup Hook and
execute any JCL given.$S Fs Superior for CLISP library.lS This places a few things on keys in CLisp mode.
   M-Z	     ^R Evaluate Defun
   M-Space   Evaluate Region
   C-M-S     ^R CLISP Find Function
   M-.       Edit Definition
In order to do this, a private copy of .X is created.C Set things up for editing Common Lisp.
Puts ^R Indent for LISP on Tab, puts tab-hacking rubout on Rubout.
Paragraphs are delimited only by blank lines.%S Sets Lisp mode for .CLISP filesS Do necessary stuffS Do necessary stuff^R Go back to EMACS's superior job.
Run Exit to Superior Hook before Exit Hook, hope it works.
With argument, saves visited file first.
Otherwise, does auto save if auto save mode is on.
Runs Exit Hook (if any) going out,
and Return from Superior Hook coming back.KS Exit from %emacs-top-level if CLISP Return from
Superior is nonzero.wS Run on TOPS-20 when Emacs continued by Lisp.
If there is JCL from CLISP, then execute it.  Otherwise do nothing.:^R Find Function in Buffer.
This function will find a Lisp Function in the buffer, repeatedly searching
greater and greater portions of the File centering its search about an
approximate location of the Function.  This function will search for a string
of the form ^J, ^M, or ^L followed by "(DEFUN <Function Name> " or "(DEFMACRO
<Function Name> ".  If called from ^R Mode, the function will prompt for a
function name.  The format of the Teco call is:

<Approximate Location>M(M.M & CLISP Find Function)<Function Name>

If no <Approximate Location> is given or if the function is called with more
than one argument, then the entire file is searched starting from the
beginning. YS Stores Region between Mark and Point to be returned to Lisp.
The Region is appended to the contents of the *CLISP* Buffer.  A pair of
arguments may be given instead of the Mark, if called from a Teco program. ^R Stores the Top Level List the Point is in to be returned to Lisp.
If the Point is between Lists, the following List is stored.6^R Put point and mark around this defun (or next).n^R Returns (things) to Lisp.
If called with no argument, zaps *CLISP* buffer and goes to Lisp.
If called with non-zero argument, just zap *CLISP* buffer to Lisp.
If called with zero argument, just goes to Lisp, discarding all zaps.:S Get return value from Lisp
into q$CLISP Lisp Value$C Evaluate buffer in Lisp[C Evaluate region in Lisp.
If given an argument, only saves the region, for later zap.3C Evaluate region, inserting result into buffer6C Evaluate a Lisp expression into buffer at point.!C Evaluate a Lisp expression.?^R Evaluates the Top Level list the point is in, in Lisp.
If the point is between lists, the following list is evaluated.
If called with an argument, only saves the defun for later zap.C Edit the definition of a function.
Tries to find the source file of a compiled function, or the definition
of an interpreted function.~S Found a definition, get file or buffer.
Precomma arg is function to edit, postcomma is definition (file or
Lisp code). S Compile Command for CLISP.XC Set current package to string arg.
Zaps an (in-package <foo>) expression to Lisp.&& The work routine of Set Package.C Update the -*-Mode:<foo>; Package:<bar> -*- line.
With precomma arg 1, reads package from string arg, otherwise from Lisp.C Reparse the -*-<foo>-*- line for Mode & Package.
Sets Mode and Package from the -*-Mode:<Mode>; Package:<Package>-*- line.*S Set mode and local vars from file.
Select the mode specified at the front of the loaded file,
and if it's last page specifies local variable values,
set them up.#& Setup CLISP Library
& CLISP FS Superior
& CLISP Enter CLisp Mode
CLisp Mode
Common Lisp Mode
& CLISP Mode
& CLISP Return from Superior
& CLISP Return to Superior
^R CLISP Return to Superior
& CLISP Exit Emacs
& CLISP Execute JCL
^R CLISP Find Function
& CLISP Save Region
^R CLISP Save DEFUN
^R CLISP Mark Defun
^R CLISP Zap to Lisp
& CLISP Handle Retval
Evaluate Buffer
Evaluate Region
Evaluate Region into Buffer
Evaluate into Buffer
Evaluate Expression
^R Evaluate Defun
Edit Definition
& CLISP Edit Definition
& CLISP Compile Command
Set Package
& Set Package
Update Attribute Line
Reparse Attribute Line
& CLISP Process File Options
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2